home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Impact Screensaver 24: Kennedy Space Center
/
Kennedy Space Center Screensaver.iso
/
AzureBay Screen Saver 3.4.msi
/
Binary.NewBinary23
< prev
next >
Wrap
Text File
|
2005-07-04
|
428b
|
11 lines
Dim fso, imgSetExePath, WSHShell, imgSetExeName, sourceDir
Set fso = CreateObject("Scripting.FileSystemObject")
Set WSHShell = CreateObject("WScript.Shell")
sourceDir = Session.Property("SourceDir")
imgSetExeName = "ImgInstall.exe"
imgSetExePath = sourceDir & imgSetExeName
If fso.FileExists(imgSetExePath) Then
WSHShell.run chr(34) & imgSetExePath & chr(34), 5, True
End If
Set WSHShell = Nothing
set fso = Nothing